Visual Basic 5 Developer's Kit

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / f1ocx / vcform1.3 / VB4 / TIMING1 / FOTIME3.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-09-15 | 19.9 KB | 614 lines

VERSION 4.00 Begin VB.Form Form3 Caption = "Formula One Timing Project" ClientHeight = 4200 ClientLeft = 1050 ClientTop = 1860 ClientWidth = 7395 Height = 4605 Left = 990 LinkTopic = "Form3" ScaleHeight = 4200 ScaleWidth = 7395 Top = 1515 Width = 7515 Begin VB.Frame Frame3 Caption = "Other Operations" BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 2895 Left = 3720 TabIndex = 17 Top = 240 Width = 3375 Begin VB.TextBox SortRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 13 Text = "Text1" Top = 2280 Width = 1000 End Begin VB.TextBox DeleteRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 12 Text = "Text1" Top = 1800 Width = 1000 End Begin VB.TextBox InsertRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 11 Text = "Text1" Top = 1320 Width = 1000 End Begin VB.TextBox CopyRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 10 Text = "Text1" Top = 840 Width = 1000 End Begin VB.TextBox ScrollRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 9 Text = "Text1" Top = 360 Width = 1000 End Begin VB.Label Label9 Caption = "Rows To Sort" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 22 Top = 2280 Width = 1815 End Begin VB.Label Label8 Caption = "Rows To Delete" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 21 Top = 1800 Width = 1815 End Begin VB.Label Label7 Caption = "Rows To Insert" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 20 Top = 1320 Width = 1815 End Begin VB.Label Label6 Caption = "Rows To Copy" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 19 Top = 840 Width = 1815 End Begin VB.Label Label5 Caption = "Rows To Scroll" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 375 Left = 120 TabIndex = 18 Top = 360 Width = 1695 End End Begin VB.Frame Frame2 Caption = "Formulas For Calculations" BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1335 Left = 120 TabIndex = 14 Top = 1800 Width = 3375 Begin VB.TextBox CalcRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 1680 TabIndex = 7 Text = "Text1" Top = 360 Width = 1000 End Begin VB.TextBox CalcCol BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 8 Text = "Text1" Top = 840 Width = 1000 End Begin VB.Label Label4 Caption = "Rows To Fill" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 16 Top = 360 Width = 1455 End Begin VB.Label Label3 Caption = "Columns To Fill" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 15 Top = 840 Width = 1815 End End Begin VB.CommandButton Command2 Caption = "Done" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 495 Left = 5520 TabIndex = 0 Top = 3480 Width = 1575 End Begin VB.Frame Frame1 Caption = "Number and Formula Fills" BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1335 Left = 120 TabIndex = 2 Top = 240 Width = 3375 Begin VB.TextBox FillCol BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 2040 TabIndex = 6 Text = "Text1" Top = 840 Width = 1000 End Begin VB.TextBox FillRow BeginProperty Font name = "Arial" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 375 Left = 1680 TabIndex = 5 Text = "Text1" Top = 360 Width = 1000 End Begin VB.Label Label2 Caption = "Columns To Fill" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 4 Top = 840 Width = 1815 End Begin VB.Label Label1 Caption = "Rows To Fill" BeginProperty Font name = "Arial" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 3 Top = 360 Width = 1455 End End Begin VB.CommandButton Command1 Caption = "Set To Defaults" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 495 Left = 3720 TabIndex = 1 Top = 3480 Width = 1575 End Attribute VB_Name = "Form3" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub CalcCol_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 ScrollRow.SetFocus End If End Sub Private Sub CalcCol_LostFocus() If Val(CalcCol.TEXT) < 1 Or Val(CalcCol.TEXT) > 256 Then Beep MsgBox "Must be between 1 and 256", 48 CalcCol.TEXT = Str$(Set_CalcCols%) CalcCol.SetFocus Else Set_CalcCols% = Val(CalcCol.TEXT) End If End Sub Private Sub CalcRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 CalcCol.SetFocus End If End Sub Private Sub CalcRow_LostFocus() If Val(CalcRow.TEXT) < 1 Or Val(CalcRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 CalcRow.TEXT = Str$(Set_CalcRows%) CalcRow.SetFocus Else Set_CalcRows% = Val(CalcRow.TEXT) End If End Sub Private Sub Command1_Click() Set_CopyRows% = DefCopyRows Set_InsertRows% = DefInsertRows Set_DeleteRows% = DefDeleteRows Set_FillRows% = DefFillRows Set_FillCols% = DefFillCols Set_ScrollRows% = DefScrollRows Set_SortRows% = DefSortRows Set_CalcRows% = DefCalcRows Set_CalcCols% = DefCalcCols FillRow.TEXT = Str$(Set_FillRows%) FillCol.TEXT = Str$(Set_FillCols%) CalcRow.TEXT = Str$(Set_CalcRows%) CalcCol.TEXT = Str$(Set_CalcCols%) ScrollRow.TEXT = Str$(Set_ScrollRows%) CopyRow.TEXT = Str$(Set_CopyRows%) InsertRow.TEXT = Str$(Set_InsertRows%) DeleteRow.TEXT = Str$(Set_DeleteRows%) SortRow.TEXT = Str$(Set_SortRows%) End Sub Private Sub Command2_Click() Form3.Hide Form1.Show End Sub Private Sub Command3_KeyPress(KeyAscii As Integer) End Sub Private Sub CopyRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 InsertRow.SetFocus End If End Sub Private Sub CopyRow_LostFocus() If Val(CopyRow.TEXT) < 1 Or Val(CopyRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 CopyRow.TEXT = Str$(Set_CopyRows%) CopyRow.SetFocus Else Set_CopyRows% = Val(CopyRow.TEXT) End If End Sub Private Sub DeleteRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SortRow.SetFocus End If End Sub Private Sub DeleteRow_LostFocus() If Val(DeleteRow.TEXT) < 1 Or Val(DeleteRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 DeleteRow.TEXT = Str$(Set_DeleteRows%) DeleteRow.SetFocus Else Set_DeleteRows% = Val(DeleteRow.TEXT) End If End Sub Private Sub FillCol_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 CalcRow.SetFocus End If End Sub Private Sub FillCol_LostFocus() If Val(FillCol.TEXT) < 1 Or Val(FillCol.TEXT) > 256 Then Beep MsgBox "Must be between 1 and 256", 48 FillCol.TEXT = Str$(Set_FillCols%) FillCol.SetFocus Else Set_FillCols% = Val(FillCol.TEXT) End If End Sub Private Sub FillRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 FillCol.SetFocus End If End Sub Private Sub FillRow_LostFocus() If Val(FillRow.TEXT) < 1 Or Val(FillRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 FillRow.TEXT = Str$(Set_FillRows%) FillRow.SetFocus Else Set_FillRows% = Val(FillRow.TEXT) End If End Sub Private Sub Form_Activate() Form3.FillRow.SetFocus End Sub Private Sub Form_Load() FillRow.TEXT = Str$(Set_FillRows%) FillCol.TEXT = Str$(Set_FillCols%) CalcRow.TEXT = Str$(Set_CalcRows%) CalcCol.TEXT = Str$(Set_CalcCols%) ScrollRow.TEXT = Str$(Set_ScrollRows%) CopyRow.TEXT = Str$(Set_CopyRows%) InsertRow.TEXT = Str$(Set_InsertRows%) DeleteRow.TEXT = Str$(Set_DeleteRows%) SortRow.TEXT = Str$(Set_SortRows%) End Sub Private Sub InsertRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 DeleteRow.SetFocus End If End Sub Private Sub InsertRow_LostFocus() If Val(InsertRow.TEXT) < 1 Or Val(InsertRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 InsertRow.TEXT = Str$(Set_InsertRows%) InsertRow.SetFocus Else Set_InsertRows% = Val(InsertRow.TEXT) End If End Sub Private Sub ScrollRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 CopyRow.SetFocus End If End Sub Private Sub ScrollRow_LostFocus() If Val(ScrollRow.TEXT) < 1 Or Val(ScrollRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 ScrollRow.TEXT = Str$(Set_ScrollRows%) ScrollRow.SetFocus Else Set_ScrollRows% = Val(ScrollRow.TEXT) End If End Sub Private Sub SortRow_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 FillRow.SetFocus End If End Sub Private Sub SortRow_LostFocus() If Val(SortRow.TEXT) < 1 Or Val(SortRow.TEXT) > 16384 Then Beep MsgBox "Must be between 1 and 16,384", 48 SortRow.TEXT = Str$(Set_SortRows%) SortRow.SetFocus Else Set_SortRows% = Val(SortRow.TEXT) End If End Sub